# simulate a dataset with continuous data
set.seed(1234)
dataset <- matrix(runif(1000 * 20, 1, 100), nrow = 1000 )
G = pc.con(dataset)$G
library(Rgraphviz) ## requires this library from bioconductor
plota(G)
undir.path(G, 3, 4)
undir.path(G, 1, 3)
Run the code above in your browser using DataLab